###Exercicio 5 - Criao de grficos

getwd()
setwd("C:/Users/Edmundo/Documents/Meus Documentos/BIANCA/MESTRADO/Linguagem R")
getwd()

eucalipto <- read.table("esaligna.csv",header=TRUE,sep=",",as.is=TRUE)

##Editando alguns parmetros

scatter.smooth(eucalipto$dap~eucalipto$ht)
plot(eucalipto$dap~eucalipto$ht,xlab="altura(m)",ylab="DAP(cm)")
plot(eucalipto$dap~eucalipto$ht,xlab="altura(m)",ylab="DAP(cm)",tck=0.03)
#No sei como deixar o grfico somente com as abcissas e ordenadas, formato L.
title(main="Relao altura da rvore(m) x DAP(cm)")
plot(eucalipto$dap~eucalipto$ht,xlab="Altura (m)",ylab="DAP (cm)",tck=0.03,bty="l", cex.main=2, cex.lab=2, cex.axis=2)
title(main="Relao altura da rvore(m) x DAP(cm)",cex.main=2)

##Dois grficos juntos

par(mfrow=c(1,2))
#dap em funo de talhao:
boxplot(dap~talhao,eucalipto)
title(main="A")
mdia <- tapply(X=eucalipto$dap,INDEX=eucalipto$talhao,FUN=mean)
mdia
desviopadro <- tapply(X=eucalipto$dap,INDEX=eucalipto$talhao,FUN=sd)
desviopadro
boxplot(mdia~desviopadro) #?????
title(main="B")

##Advinhando o cdigo

par(mfrow=c(1,2))
advinhao <- read.table("exercicio3.csv",header=TRUE,sep=",",as.is=TRUE)
advinhao
scatter.smooth(advinhao$x1~advinhao$y1)
scatter.smooth(advinhao$x2~advinhao$y2)
#?????